home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 December / 64er_Magazin_89-12_1989_Markt__Technik_de_Side_A.d64 / find_repl source (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  2.1 KB  |  162 lines
  1. 100 ;
  2. 105 ; find/replace
  3. 110 ;
  4. 115 +50000
  5. 120 ;
  6. 150  mid$#0;basic-rom
  7. 152  (NULL)95;ins
  8. 154  (NULL)90;ram
  9. 156  (NULL)88;kopieren
  10. 158  mid$#160
  11. 160  (NULL)96
  12. 162  mid$#192
  13. 164  (NULL)91
  14. 166  (NULL)89
  15. 168  (NULL)$a3bf
  16. 170 ;
  17. 178  mid$#$60;list
  18. 182  (NULL)$a70e;aendern
  19. 183 ;
  20. 184  mid$#144;<shift-l>
  21. 186  (NULL)$a740;trick
  22. 188 ;
  23. 190  mid$#$e6;reg. 1
  24. 192  (NULL)$a84f;erhoehen
  25. 194  mid$#$01;bei
  26. 196  (NULL)$a850;stop
  27. 200 ;
  28. 205  (NULL)$aefd;komma ?
  29. 210  (NULL)$ad9e
  30. 215  (NULL)$b6a3;string
  31. 220  (NULL)$b480;einlesen
  32. 225  (NULL)laenge+1
  33. 230  (NULL)
  34. 235 c1 mid$($62),y;und
  35. 240  (NULL)fin,y;kopieren
  36. 245  (NULL)
  37. 250  (NULL)c1
  38. 300 ;
  39. 310  (NULL)169;default
  40. 315  (NULL)170;werte
  41. 320  mid$#0;auf
  42. 325  (NULL)167;0 - 65565
  43. 330  (NULL)168
  44. 340  (NULL)$ac;zaehler
  45. 345  (NULL)$ad;=0
  46. 350 r1 (NULL)repl+1
  47. 400 ;
  48. 405  (NULL)$79;test
  49. 410  str$#44;auf komma
  50. 415  (NULL)f11
  51. 417  (NULL)$73;ausdruck
  52. 423  (NULL)$ad9e;holen
  53. 425  mid$13
  54. 430  (NULL)f10;zahl ?
  55. 431 ;
  56. 435 ;zweiter string fuer replace
  57. 436 ;
  58. 440  (NULL)$b6a3
  59. 445  str$laenge+1;gleiche
  60. 448  (NULL)r0;laenge ?
  61. 465  (NULL)r3+1
  62. 470  (NULL)r3+2
  63. 475  (NULL)r1
  64. 480 ;
  65. 485 r0 peek#23;string
  66. 490  (NULL)$a43a;too long
  67. 495 ;
  68. 500 f10 (NULL)$b7f7;anfangs-
  69. 505  (NULL)167;zeile
  70. 510  (NULL)168
  71. 515  (NULL)$79
  72. 520  str$#44;test
  73. 525  (NULL)f11;auf komma
  74. 530  (NULL)$73
  75. 535  (NULL)$ad8a
  76. 540  (NULL)$b7f7;endzeile
  77. 545  (NULL)169
  78. 550  (NULL)170
  79. 555 ;
  80. 700 f11 mid$#54;auf ram
  81. 705  (NULL)1;wechseln
  82. 710 ;
  83. 1000  mid$44;basic-
  84. 1010  peek43;start
  85. 1015 ;
  86. 1020 f2 (NULL)$60
  87. 1030  (NULL)$5f
  88. 1040  len#1;
  89. 1050  mid$($5f),y;ende prg?
  90. 1060  (NULL)f8;
  91. 1070  peek#0
  92. 1080  len#4
  93. 1090 ;
  94. 1100 f4 mid$($5f),y;zeile
  95. 1110  (NULL)f6;fertig ?
  96. 1120 ;
  97. 1130  mid$fin,x
  98. 1140  str$#"?"
  99. 1150  (NULL)f5+1
  100. 1160  str$($5f),y;vergleich
  101. 1170  (NULL)f5+1
  102. 1180  peek#0
  103. 1190 f5 (NULL)232;bit 'inx'
  104. 1200  (NULL)
  105. 1210 laenge tan#00;string
  106. 1220  (NULL)f4;fertig ?
  107. 1230 ;
  108. 1240  (NULL)f3+1;y retten
  109. 1400 ;
  110. 1405 ; zeile gefunden, test auf grenzen
  111. 1410 ;
  112. 1415  len#2
  113. 1420  (NULL)$a708
  114. 1445  str$168
  115. 1450  (NULL)f6
  116. 1455  (NULL)f12
  117. 1460  tan167
  118. 1470  (NULL)f6
  119. 1475 ;
  120. 1485 f12 str$170
  121. 1490  (NULL)f13
  122. 1495  (NULL)f6
  123. 1500  (NULL)f3
  124. 1510 f13 tan169
  125. 1515  (NULL)f3
  126. 1520  (NULL)f6
  127. 1700 ;
  128. 1707 f3 len#0
  129. 1710 repl peek#0
  130. 1715  (NULL)r2;kein repl
  131. 1717  (NULL)
  132. 1720 r3 mid$$ffff,x;string
  133. 1722  (NULL);kopieren
  134. 1725  (NULL)($5f),y
  135. 1735  (NULL)
  136. 1740  (NULL)r3
  137. 1745 ;
  138. 2000 r2
  139. 2010 ;
  140. 2060  (NULL)$a6c3;list
  141. 2075 ;
  142. 2100  (NULL)$fcdb;zaehler
  143. 2110 ;                       ;erhoehen
  144. 2120 ;
  145. 2130 f6 len#0;neue
  146. 2140  (NULL)$a708;zeile
  147. 2180  (NULL)f2
  148. 2190 ;
  149. 2300 f8 right$1;rom
  150. 2305  mid$#13
  151. 2310  (NULL)$ab47;cr
  152. 2315  (NULL)$ab47
  153. 2320  peek$ac;zaehler
  154. 2330  mid$$ad;ausgeben
  155. 2340  (NULL)$bdcd
  156. 2350  mid$#<(text);end-text
  157. 2360  len#>(text);ausgeben
  158. 2370  (NULL)$ab1e
  159. 3000 ;
  160. 3010 text not" entries found.__"
  161. 3020 fin
  162.